home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / FW.LSP < prev    next >
Text File  |  1992-09-13  |  405b  |  13 lines
  1. ;Fill Wall
  2. ;
  3. (setq oer *error* *error* err2)
  4. (if (= fa1 nil)(setq fa1 4.5))
  5. (setq dfop1 fa1)
  6. (initget (+ 2 4))
  7. (setq fa1(getdist(strcat "Enter wall size <" (rtos fa1) ">: ")))
  8. (if (= fa1 nil)(setq fa1 dfop1))
  9. (setq fa2(/ fa1 2))
  10. (princ "\nSelect wall line to fill")
  11. (command"offset" fa2 pause PAUSE "" "chprop" "l" "" "la" "ewf" "" "pedit" "l" "Y" "w" fa1 "")
  12. (setq dfop1 nil fa2 nil)
  13. (princ)